library(tidyverse)
library(formattable)

browseVignettes('formattable')

formattable(iris)
formattable(iris, 
            list(Sepal.Length = color_bar(),
                 Sepal.Width = color_tile('white','pink')))
